﻿Public Class NhanVienVP
    Inherits NhanVien

    Private _Ngaycong As Double
    Public Property NgayCong() As Double
        Get
            Return _Ngaycong
        End Get
        Set(ByVal value As Double)
            _Ngaycong = value
        End Set
    End Property

    Private _TroCap As Double
    Public Property TroCap() As Double
        Get
            Return _TroCap
        End Get
        Set(ByVal value As Double)
            _TroCap = value
        End Set
    End Property
    Public Overrides Sub Nhap()
        MyBase.Nhap()
        Console.Write("Nhap so ngay lam viec: ")
        _Ngaycong = Convert.ToDouble(Console.ReadLine)
        Console.Write("Tro cap: ")
        _TroCap = Convert.ToDouble(Console.ReadLine)

    End Sub
    Public Overrides Sub Xuat()
        MyBase.Xuat()
        Console.Write(", Ngay cong: {0}", _Ngaycong)
        Console.Write(", Tro cap: {0}", _TroCap)
        Console.WriteLine(", Nhan Vien Van Phong")
    End Sub
    Public Overrides Function TinhLuong() As Double
        Return MyBase.TinhLuong() + _Ngaycong * 100000 + _TroCap
    End Function
End Class
